Upload.asp 耐品图片管理系统标准版A - ASP源码程序

gusucode.com > 耐品图片管理系统标准版A > 耐品图片管理系统标准版A/Upload.asp
    <!--#Include File="Inc/clsSetting.asp"-->
<%
If CheckServer(Config.SystemUrl)=False then
	Response.Write("禁止被其他站点调用!")
	Response.End	
End If

UpType = Request.QueryString("UpType")
BgColor = "#DBDBDB"
FileType = "gif/jpg"
Select Case UpType
Case "UserPic"
	Pos = Request.QueryString("Pos")
	If Pos = "out,reg" Or Pos = "out,mod" Then
		Select Case Request.Cookies(CookieName)("StyleId")
		Case "white":BgColor = "#FFFFFF"
		Case "black":BgColor = "#202020"
		Case "blue":BgColor = "#FFFFFF"
		End Select
	End If
Case "JpegFile"
	FileType = "gif"
	Tip = FileType&"格式，最大宽度<font color='#FF0000'><b>200</b></font>,最大高度<font color='#FF0000'><b>100</b></font>。"
Case Else
End Select

Function CheckServer(str)
	Dim i,servername
	If str="" Then
		CheckServer = True
		Exit Function
	Else
		CheckServer = False
	End If
	str=split(Cstr(str),",")
	servername=Request.ServerVariables("HTTP_REFERER")
	For i=0 to Ubound(str)
	If Right(str(i),1)="/" Then str(i)=left(Trim(str(i)),Len(str(i))-1)
		If Lcase(left(servername,Len(str(i))))=Lcase(str(i)) then
			checkserver = True
			Exit For
		Else
			checkserver = False
		End if
	Next
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body{
	background-color: <%=BgColor%>;
	font-size:9pt
}
<%If request.QueryString("Pos")="out" Then%>
.tx1 { 
	height: 20px;
	font-size: 9pt; 
	border: 1px solid #7a7a7a; 
	color: #7a7a7a; 
	background-color: #FFFFFF;
}
<%else%>
.tx1 {
	height: 20px;
	font-size: 9pt; 
	border: 1px solid; 
	border-color: #000000; 
	color: #0000FF
}
<%end if%>
-->
</style>

<SCRIPT language=javascript>
function check() {
	var strFileName=form1.File.value;
	var FileType,LockType,Up;
	if (strFileName==""){
    	alert("请选择要上传的文件");
    	return false;
  	}
  	else{
		FileType=strFileName.substr(strFileName.length-3)
		FileType=FileType.toLowerCase();
		LockType="<%=FileType%>".split("/");
		for(i=0;i<LockType.length;i++)
			if(FileType==LockType[i]){Up=true;break;}else{Up=false;}
		if(!Up){
			alert("请选择<%=FileType%>格式文件！");
			return false;
		}
  	}
}
</SCRIPT>
</head>
<body leftmargin="0" topmargin="0">
<form action="upfile.asp" method="post" name="form1" onSubmit="return check()" enctype="multipart/form-data">
  <input name="Action" type="hidden" value="<%=UpType%>">
  <input name="bgColor" type="hidden" value="<%=BgColor%>">
  <input type="hidden" name="LogoWidth" value="<%=Config.Settings(35)%>">
  <input type="hidden" name="LogoHeight" value="<%=Config.Settings(36)%>">
  <input name="Pos" type="hidden" value="<%=Request.QueryString("Pos")%>">
  <input name="adFile" type="hidden" value="<%=Request.QueryString("adFile")%>">
  <input name="File" type="FILE" class="tx1" size="20">
  <input type="submit" name="Submit" value="上传" style="border:1px double rgb(88,88,88);font:9pt"> 
  <br><%=Tip%>
</form>
</body>
</html>